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transfora Program 
for 
colour 
coordinate 

/ 

Siachide <stdio.h> 

void 

main() 

{ 

float 

d[4][3] J a[3}C3] > K3],c[3],ddE3],r[3][3] ) kk[3][33,3S J sss; 
int i,j,k; 

/* input z 4 7 of WSB */ 

printfC INPUT RGB and Write¥n">; 

printfCSx Ry Gx Gy Bx By fe tfySn"); 

scanfCH tt » JSf Xf Xf Xf XT, *dlQj[0],U[0][l] 

. W[i][o],4d[i3[i3 

, SdC2][0],Sd[23[l3 
, *d[33[0],4d[33[I]); 

/* 



d[0][0] 


= 0.67; 


dC0][l3 


= 0.33; 


d[i3[03 


= 0.21; 


d[l][l] 


= 0.71; 


d[2][03 


= •0.14; 


d[23[l] 


= 0.O8; 


d[33C03 


= 0.31; 


d[3][l] 


= 0.316, 



*/ 
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/* calculate z frta x k y */ 
for(i = 0; i < 4; i++){ 

if((d[ij[0] + d[i][i]) > 1.0){ 
d[i][2] = 0.0; 

} 

d[i][2] = 1.0 - d[i][0] - d[i][l3; 

} 

printfrHAlEIE&x*); 
for(i = 0; i < 3; i++){ 

priatfnHf ); 

for< j = 0; i < 3; 

printf("S.3f?f ,d[i][j]>; 

} 

priatf("¥n*); 

> 
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/* ealuculate iatrii */ 

{ 

iat il, i2, jl, j2; 
for(i = 0; i < 3; i++){ 

il = i + 1; 

iZ = i + 2; 

if (il > 2) il = 0; 

if (i2 > 2) i2 = i2 - 3; 
for(j = 0; J < 3; j-wM 

jl = j + 1; 

j2 = j + 2; 

if (jl > 2) jl = 0; 

if (j2 > 2) j2 = j2 - 3; 

aCilCj] = d[ii][jl]*d[i2][j2] - dCil]Cj2]*d[i2][jl3; 

> 

} 

} 

/» calculate of BANJO */ 
for(i = 0;i < 3; !++}{ 

b[i] = 0; • 

for<j = 0; j <3; j++){ 
bCi] = a[i][j] * d[3][j] +b[i]; 

} 
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/* MAIEIX «/ 
for(i = 0; i < 3; i++){ 
for(j = 0; i < 3; j-H-){ 

a[i][jl = a[i][j] / b[i]; 

r[il[j] = a[i][j]; 

if(i = i){ 

= 1.0; 

> else { 

kkCilU] = 0.0; 

} 

} 

> 

/* rams HAisn */ 

for(i = 0; i < 3; i++){ 
for(j =0; j < 3; 
dd(j] = a[j][i]; 
= 0.0; 

} 

a[i][i] = 1.0; 
for(j = 0; i < 3; 
c[j] = m[I][j] / dd[i3; 

} 

for(j =0; j < 3; J++M 
for(k = 0; k < 3; k++){ 
a[j][k] = a[j][k] - c[k]*dd[j]; 

• } 
} 

fer(i = 0; j < 3; 
a[i][j] = cCj]; 

> 
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/» SKIIIKA «/ 

ss = a[l][03 + a[l][l] + a[i][23; 
sss = r[l][0] + r[l][l] *r[l][2]; 
for(i = 0; i < 3; i+f){ 

fw(j = 0; j < 3; j++){ 

a[i][j] = a[i][j] / «; 

r[i][j] = r[i]Cj] / sss; 

} 

} 
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/* result */ 

printf ("original datafe"); 
for<i = 0; i < 4; i++){ 

printfCftT); 

for( j = 0; j < 3; j++H 

printf("X7.5f ",d[fj[j]) ; 

} 

printf<"?n'); 

} 

prxatf ("Mania") ; 

foKi = 0; i < 3; i++){ 
printf(-¥f); 
fori j = 0; j < 3; 

printfCTT.Sf -,r[i]U3); 

} 

priatrrW); 

} 

priatf("I«VZaCZ HA.TRH?tf" ) ; 
for(i = 0; i < 3; 

printf C¥f); 

for( j = 0; j < 3; 

printf nt7.5f ",a£i][j]); 

} 

printf ("in"); 

} 

for(i = 0; i < 3; i++H 
forU = 0; j < 3; 
kk[i][j] = «Cil[0]*r£0][J] + a[i]Cl]«r[l][j] + iCi3[2l*r{2][j]; 

} 

} 

priatfCIAIZZAHSn"); 

for(i = 0; i < 3; i++){ 
printf("¥t"); 
for( j = 0; j < 3; 
printf("57.5f 

} 

printfH&f); 

} 
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